Dit voorbeeld maakt gebruik van de instructie End om de uitvoering van een programmacode te beδindigen als de gebruiker een ongeldig wachtwoord invoert.
Sub Form_Load
Dim Password, Pword
PassWord = "Knal"
Pword = InputBox("Typ uw wachtwoord")
If Pword <> PassWord Then
MsgBox "Sorry, ongeldig wachtwoord"
End
End If
End Sub